VERSION 5.00
Begin VB.Form Test3Form 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   BorderStyle     =   0  'None
   ClientHeight    =   9000
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   12000
   LinkTopic       =   "Form1"
   ScaleHeight     =   9000
   ScaleWidth      =   12000
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VB.CommandButton React_Button 
      BackColor       =   &H000000FF&
      Caption         =   "Reactive"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   5940
      Style           =   1  'Graphical
      TabIndex        =   6
      Top             =   5220
      Width           =   2235
   End
   Begin VB.CommandButton NonReact_Button 
      Caption         =   "Non-reactive"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   5940
      TabIndex        =   5
      Top             =   4020
      Width           =   2235
   End
   Begin VB.CommandButton Cancel_Button 
      BackColor       =   &H008080FF&
      Caption         =   "Cancel"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   9600
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   7560
      Width           =   1935
   End
   Begin VB.CommandButton Next_Button 
      Caption         =   "Next"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   9600
      TabIndex        =   1
      Top             =   6360
      Width           =   1935
   End
   Begin VB.CommandButton Clear_Button 
      Caption         =   "Clear"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   9600
      TabIndex        =   0
      Top             =   5160
      Visible         =   0   'False
      Width           =   1935
   End
   Begin VCT.TouchScreenListBox AvailableTestsList 
      Height          =   4635
      Left            =   420
      TabIndex        =   3
      Top             =   4020
      Width           =   4575
      _ExtentX        =   8070
      _ExtentY        =   8176
   End
   Begin VB.Label ClientCode_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   375
      Left            =   3540
      TabIndex        =   8
      Top             =   840
      Width           =   2775
   End
   Begin VB.Label Determine_Label 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Test #1:"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1260
      TabIndex        =   17
      Top             =   1320
      Width           =   915
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   1
      Left            =   1080
      TabIndex        =   16
      Top             =   1320
      Width           =   255
   End
   Begin VB.Line SexColorLine 
      BorderColor     =   &H00FFC0C0&
      BorderWidth     =   10
      X1              =   420
      X2              =   420
      Y1              =   720
      Y2              =   2640
   End
   Begin VB.Label ClientSexLabel 
      BackColor       =   &H00C0FFFF&
      Caption         =   "Client Sex Goes Here"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1020
      TabIndex        =   15
      Top             =   480
      Width           =   2415
   End
   Begin VB.Label Test2Name_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   375
      Left            =   2580
      TabIndex        =   14
      Top             =   1800
      Width           =   4215
   End
   Begin VB.Label Unigold_Label 
      BackColor       =   &H00C0FFFF&
      Caption         =   "Test #2:"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1260
      TabIndex        =   13
      Top             =   1800
      Width           =   915
   End
   Begin VB.Label Test1Name_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   375
      Left            =   2580
      TabIndex        =   12
      Top             =   1320
      Width           =   4215
   End
   Begin VB.Label Test3Name_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   375
      Left            =   2580
      TabIndex        =   11
      Top             =   2280
      Width           =   4215
   End
   Begin VB.Label ClientCode_Label 
      BackColor       =   &H00C0FFFF&
      Caption         =   "Client | Couple Code:"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1260
      TabIndex        =   10
      Top             =   840
      Width           =   2715
   End
   Begin VB.Label Hemastrip_Label 
      BackColor       =   &H00C0FFFF&
      Caption         =   "Test #3:"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1260
      TabIndex        =   9
      Top             =   2280
      Width           =   915
   End
   Begin VB.Label Hemastrip_Title 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Client Sample"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   18
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   5820
      TabIndex        =   7
      Top             =   3480
      Width           =   2775
   End
   Begin VB.Label Label2 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Name of Test"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   18
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   480
      TabIndex        =   4
      Top             =   3480
      Width           =   2655
   End
   Begin VB.Shape Shape2 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   1  'Opaque
      BorderColor     =   &H00000000&
      BorderWidth     =   2
      Height          =   2895
      Left            =   420
      Shape           =   4  'Rounded Rectangle
      Top             =   240
      Width           =   7695
   End
End
Attribute VB_Name = "Test3Form"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub AvailableTestsList_click()
   AvailableTestsList.Enabled = False
   TEST3NAME = AvailableTestsList.Text
   Test3Name_Data.Caption = TEST3NAME
   React_Button.Enabled = True
   NonReact_Button.Enabled = True
End Sub

Private Sub Cancel_Button_Click()
   HIVMenuForm.Show
   Unload Me
End Sub

Private Sub Form_Load()
   Next_Button.Enabled = False
   React_Button.Enabled = False
   NonReact_Button.Enabled = False
   CnUser.Open ConnectString
   If ORGANIZATION = "LIGHTHOUSE" Then
      Cmd.CommandText = "SELECT TEST_NAME FROM rapidtest"
   Else
      Cmd.CommandText = "SELECT TEST_NAME FROM rapidtest" & _
                        " WHERE CTRL_DATE = '" & StringDate & "'" & _
                        " AND POS_RESULT = 'Reactive'" & _
                        " AND NEG_RESULT = 'Non-Reactive'"
   End If
   Cmd.ActiveConnection = CnUser
   Cmd.CommandType = adCmdText
   RsUser.Open Cmd, , adOpenStatic
   While RsUser.EOF = False
      If RsUser(0) <> TEST1NAME And RsUser(0) <> TEST2NAME Then
         AvailableTestsList.AddItem RsUser(0)
      End If
      RsUser.MoveNext
   Wend
   RsUser.Close
   CnUser.Close
   
   'Get the client's details from the database
'   CnUser.Open ConnectString
'   Cmd.CommandText = "SELECT CLNTCODE, SEX" _
'                  & " FROM   client" _
'                  & " WHERE VISITID = " & VISITID
'   Cmd.CommandType = adCmdText
'   Cmd.ActiveConnection = CnUser
'   RsUser.Open Cmd, , adOpenStatic
'      CLIENTCO = RsUser(0)
'      SEX = RsUser(1)
'   RsUser.Close
'   CnUser.Close
   
   If Sex = "1" Then
      ClientSexLabel.Caption = "Male Client"
      SexColorLine.BorderColor = vbBlue
   Else
      If Sex = "2" Then
         ClientSexLabel.Caption = "Female Client"
         SexColorLine.BorderColor = vbGreen
      Else
         ClientSexLabel.Caption = "ERROR"
         SexColorLine.BorderColor = vbRed
      End If
   End If

   If SESSTYPE = "01" Then
      ClientCode_Data.Caption = CLIENTCO & " | n/a"
   Else
      If SESSTYPE = "02" Then
         ClientCode_Data.Caption = CLIENTCO & " | " & COUPCODE
      Else
         ClientCode_Data.Caption = "Error in SESSTYPE"
      End If
   End If

   If Test1Result = "0" Then
      Test1Name_Data.Caption = TEST1NAME & " is Non-reactive"
   Else
      If Test1Result = "1" Then
         Test1Name_Data.Caption = TEST1NAME & " is Reactive"
      Else
         Test1Name_Data.Caption = "ERROR"
      End If
   End If
   
   If Test2Result = "0" Then
      Test2Name_Data.Caption = TEST2NAME & " is Non-reactive"
   Else
      If Test2Result = "1" Then
         Test2Name_Data.Caption = TEST2NAME & " is Reactive"
      Else
         Test2Name_Data.Caption = "ERROR"
      End If
   End If

End Sub

Private Sub Next_Button_Click()
   HIVSummaryForm.Show
   Unload Me
End Sub

Private Sub NonReact_Button_Click()
   React_Button.Enabled = False
   NonReact_Button.Enabled = False
   Test3Result = "0"
   Test3Name_Data = Test3Name_Data & " is Non-reactive"
   Next_Button.Enabled = True
End Sub

Private Sub React_Button_Click()
   React_Button.Enabled = False
   NonReact_Button.Enabled = False
   Test3Result = "1"
   Test3Name_Data = Test3Name_Data & " is Reactive"
   Next_Button.Enabled = True
End Sub

